home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Medabots Cardz
/
Medabots CD Cardz Metabee.bin
/
mac
/
assets
/
metabee.dxr
/
00038_Script_38
< prev
next >
Wrap
Text File
|
2001-12-07
|
2KB
|
44 lines
property myFile, useronlinee, resetscore
global gotobrassurl, squam, thescore, gNetID, jumbo
on beginsprite me
jumbo = "Pending"
set gNetID = getNetText ("http://www.nelvana.com/medabots/cookies/checkcookie.pl")
end
on mouseUp me
--amended by fez 7/12/01
--useronline = (the environment).internetConnected
--if useronline = #online then
if jumbo = "Pending" then
set the blend of sprite(6) = 100
set the text of member("statusreport") to "Please wait whilst we check you're login status"
else if jumbo = "user_id=0" then
set the blend of sprite(6) = 100
set the text of member("statusreport") to "You are not registered"
goToNetPage ("http://www.nelvana.com/medabots/user_reg/register.html")
else
if objectP(myFile) then set myFile = 0 --Delete the instance if it already exists
myFile = new(xtra "fileio") -- Create an instance of FileIO
-- openFile (myFile, the moviePath &"info.txt",0)--Open the file with R/W access
openFile (myFile, squam&"infom.txt",0)--Open the file with R/W access
delete(myFile) --deletes the file
-- createFile (myFile, the moviePath &"info.txt") --creates the file again
createFile (myFile, squam&"infom.txt") --creates the file again
-- openFile(myFile,the moviePath &"info.txt",0) --Open the file with R/W access
openFile(myFile, squam&"infom.txt",0) --Open the file with R/W access
-- mySaveString = thescore --puts the contents of the field 'input' into the variable mySaveString
resetscore = 0
put resetscore into member("holdscore")
mySaveString = member("holdscore").text
writeString(myFile,mySaveString) --writes text to the file
closeFile(myFile) -- Close the file
myFile = 0 -- Dispose of the instance
goToNetPage gotobrassurl, "_new"
end if
--end if
end